THE THI FD LeSMGUGeE Gf SLANG 


of you know that the ZX family of computers 


Many of you 
Cincluding Spectrum/TS2068) use a "third language” 
to perform the precise floating-point calculations 
that cur machines are renowned for. You also 
probably Know that it is "FORTH-like," a fact that 
has been driven into the ground since the early 
days. You may NOT Know, however, that it is much 
EASIER than FORTH, yet very powerful. You may also 
not Know that its direct use can greatly speed up 
your number-crunching. 


If you use this language simply to replace a single 
BASIC expression, the resulting speed increase will 
not be phenomenal. However, in multiple line (orp 
multiple statement? algorithms, the improvement can 
be impressive. I recently used this CALC language 


Cas I7]] call ft from now) to rewrite the main qo beck flu och, 
evaluation loop for the Mandelbrot set. The * 

resulting code was not only much more compact, but LoAd “OpaDELL | ov 
also ran 2.5 TIMES FASTER! 


CUDA” ancl run. 


— > F 
Itd love to share some of what I’ve learned about [Une bow lors F 
this, But on recalling the lukewarm response to our 
; i ; : Joke, Ñ rim These 
FORTH series I think it’s better if we will wait 


until ¢if> enough readers are interested. o : porenutoaz ee 
REAL = —.242(¢ 75° 


Meanwhile, if you feel like diving right in, arm z 
yourself with Hot 2 II (disassembles the language) IMAG = .963S 417 
and Tan Logan’s books. Here are a few quirks and Sipe - 17 


traps that I encountered which might help you out: 
LIMIT = (00 


i: Ian Logan calls the commands for 32h and 33h 

"jumps." They are not; they are simple tests. bhw T ff. 

2: The relative jump if true (JRT) clears the last Dent hold your 
stack entry. The unconditional jump (JRU>) does not. 


brent, Mow Lond 


3: The inequality tests (N<M, N¢=M, etc.) followed 5 G Í 
by conditional jump ¿JRT? don’t uae work “MAW IVEL3 aKe 
property. The problem appears to be the "inequality" 

aspect; in other words N=M works, but N=>M, etc. ase The PEUN 
only works partially (only if equal). parameters . 


4: I "solved" the problem in #3 by replacing (NOM) 
with SUB followed by (N3073. This worked fine as 
Tong as it was located below 4100h, giving flat 
WRONG answers when the code was moved anywhere else! 
So if code that SHOULD run DOESN T, try moving it 
elsewhere, 


